home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zk.d64 / pl0.test4 < prev    next >
Text File  |  2007-03-01  |  417b  |  27 lines
  1. 0010 // VAR TAB, N, PROD;
  2. 0020 //
  3. 0030 // BEGIN
  4. 0040 //
  5. 0050 //  READ(TAB);
  6. 0060 //
  7. 0070 //  WHILE TAB>0 DO
  8. 0080 //  BEGIN
  9. 0085 //   WRITELN;
  10. 0090 //   N:=0;
  11. 0095 //
  12. 0100 //   WHILE N<10 DO
  13. 0110 //   BEGIN
  14. 0120 //    N:=N+1;
  15. 0130 //    PROD:=N*TAB;
  16. 0140 //    WRITE(N); WRITE(PROD);
  17. 0150 //    WRITELN;
  18. 0160 //   END;
  19. 0165 //
  20. 0170 //   WRITELN;
  21. 0180 //
  22. 0190 //   READ(TAB);
  23. 0200 //
  24. 0210 //  END;
  25. 0211 //
  26. 0220 // END.
  27.